(x-create-frame-with-faces): Handle reverseVideo resource.

diff --git a/lisp/faces.el b/lisp/faces.el
index a0359e6d055215dfdaa13f36500710badc7e2522..d6095380a78d15d585818982379af8f18167382f 100644 (file)
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -743,7 +743,9 @@ If NOERROR is non-nil, return nil on failure."
       (set-frame-face-alist frame faces)
 
       (if (cdr (or (assq 'reverse parameters)
-                  (assq 'reverse default-frame-alist)))
+                  (assq 'reverse default-frame-alist)
+                  (cons nil
+                        (x-get-resource "reverseVideo" "Reversevideo"))))
          (let ((params (frame-parameters frame)))
            (modify-frame-parameters
             frame